home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 10 / 9 / DISK1095.ZIP / SFREPACK.PRG < prev    next >
Text File  |  1986-10-06  |  749b  |  33 lines
  1. *
  2. * SFREPACK
  3. * CLEAN UP SCHECULE FILE BY REMOVING DELETED RECORDS AND REGENERATING INDEXES
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. SET STATUS OFF
  7. CLEAR
  8. CLEAR ALL
  9. SET TALK OFF
  10. SET BELL OFF
  11. @ 1,22 SAY "SMITH'S BIKEWORKS INFORMATION SYSTEM"
  12. @ 3,11 SAY ">> Production System Requirements Schedule File Clean Up <<"
  13. @ 5,29 SAY "Today's Date: "
  14. ?? DATE()
  15. STORE " " TO DUMMY
  16. @ 15,1 SAY ;
  17. "THIS PROGRAM PERMANENTLY REMOVES RECORDS FLAGGED FOR DELETION FROM THE"
  18. @ 16,1 SAY ;
  19. "SCHEDULE FILE. 'M' HERE RETURNS TO MENU. ANY OTHER KEY STARTS REPACK =>";
  20. GET DUMMY
  21. READ
  22. STORE UPPER(DUMMY) TO DUMMY
  23. IF DUMMY="M"
  24.    RETURN
  25. ENDIF
  26. * OPEN SCHEDULE FILE WITH ITS INDEXES, THEN REPACK
  27. USE SCHEDULE INDEX SKSTOCK,WKREQ
  28. PACK
  29. REINDEX
  30. CLEAR
  31. RETURN
  32.  
  33.